home *** CD-ROM | disk | FTP | other *** search
/ Fritz: All Fritz / All Fritz.zip / All Fritz / FILES / PROGSCAL / TBUTIL2.LZH / DUMPHEX.INC < prev    next >
Text File  |  1984-07-13  |  254b  |  19 lines
  1.  
  2. PROCEDURE dumphex(a:INTEGER);
  3.  
  4. CONST
  5.   HEX = '0123456789ABCDEF';
  6. VAR
  7.   inter,i : BYTE;
  8.  
  9. BEGIN
  10.    FOR i := 1 TO 4 DO
  11.    BEGIN
  12.    inter := a SHR 12;
  13.    a     := a SHL 4;
  14.    WRITE (COPY(hex,inter+1,1));
  15.    END;
  16.    WRITE ('  ');
  17.    END;
  18.  
  19.